home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr26 / pwrutls2.zip / WARN.BAS < prev    next >
BASIC Source File  |  1993-06-03  |  641b  |  22 lines
  1. 10 DEFINT A-Z
  2. 20 FD=5
  3. 30 DEF SEG=&H100
  4. 40 FOR LOOP=0 TO 20
  5. 50 READ MEM
  6. 60 POKE LOOP,MEM
  7. 70 NEXT
  8. 80 SIZE=0:HD=0
  9. 90 CALL HD(SIZE,FD)
  10. 100 REM *** Line 110 is 977 for DOS 3.x and 488 for DOS 4.x ***
  11. 110 IF SIZE<977 THEN 120 ELSE 170
  12. 120 IF FD=3 THEN PD$="C:" ELSE IF FD=4 THEN PD$="D:" ELSE IF FD=5 THEN PD$="E:"
  13. 130 BEEP
  14. 140 CLS:PRINT "Storage Space on Drive "+PD$+" is LESS THAN < 2 > MEGABYTES!"
  15. 150 PRINT
  16. 160 INPUT "Press Enter to Continue " ;A
  17. 170 FD=FD+1
  18. 180 IF FD>5 THEN 190 ELSE 80
  19. 190 SYSTEM
  20. 200 DATA &H55,&H8B,&HEC,&H8B,&H76,&H06,&H8b,&H14,&HB4,&H36,&HCD
  21. 210 DATA &H21,&H8B,&H7E,&H08,&H89,&H1D,&H5D,&HCA,&H04,&H00
  22.